home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / recio212.zip / rbget.c < prev    next >
C/C++ Source or Header  |  1995-01-29  |  4KB  |  111 lines
  1. /*****************************************************************************
  2.    MODULE: rbget.c
  3.   PURPOSE: recio character delimited integral number input functions
  4. COPYRIGHT: (C) 1994-1995, William Pierpoint
  5.  COMPILER: Borland C Version 3.1
  6.        OS: MSDOS Version 6.2
  7.   VERSION: 2.12
  8.   RELEASE: January 29, 1995
  9. *****************************************************************************/
  10.  
  11. #include <ctype.h>
  12. #include <errno.h>
  13. #include <limits.h>
  14. #include <stdio.h>
  15. #include <stdlib.h>
  16. #include <string.h>
  17.  
  18. #include "recio.h"
  19.  
  20. extern int _risready(REC *rp, int mode);
  21. extern char *_rfldstr(REC *rp, size_t len);
  22. extern char *_rerrs(REC *rp, int errnum);
  23. extern unsigned long str2ul(const char *nptr, char **endptr, int base);
  24.  
  25. #define uint      unsigned int
  26. #define ulong     unsigned long
  27. #define UNSIGNED  0
  28. #define SIGNED    1
  29.  
  30. /****************************************************************************/
  31. static long                  /* return integral number                      */
  32.     _rbgetl(                 /* get integral number from record stream      */
  33.         REC *rp,             /* record pointer                              */
  34.         int base,            /* radix of number                             */
  35.         int sign,            /* signed number? (0=unsigned; !0=signed)      */
  36.         long min,            /* inclusive valid min value (0 if unsigned)   */
  37.         long max)            /* inclusive valid max value                   */
  38. /****************************************************************************/
  39. { 
  40.     long result=0L;          /* result to return */
  41.     long val;                /* conversion value */
  42.     char *fldptr;            /* pointer to field string */
  43.     char *endptr;            /* pointer to first invalid field char */
  44.  
  45.     if (_risready(rp, R_READ)) { 
  46.       fldptr = _rfldstr(rp, 0); 
  47.       if (fldptr) {
  48.         strims(fldptr);
  49.         for (;;) { 
  50.           if (*fldptr != '\0') { 
  51.             endptr = fldptr; 
  52.             errno = 0; 
  53.             if (sign) {
  54.               val = strtol(fldptr, &endptr, base); 
  55.             } else {
  56.               val = str2ul(fldptr, &endptr, base); 
  57.             }
  58.             while (isspace(*endptr)) endptr++; 
  59.             if (errno==ERANGE || !*endptr) { 
  60.               if (!errno) { 
  61.                 if (sign) {
  62.                   if (val >= min && val <= max) { 
  63.                     result = val; 
  64.                     goto done; 
  65.                   }
  66.                 } else {
  67.                   /* note: unsigned min always assumed to be zero */
  68.                   if ((ulong) val <= (ulong) max) {
  69.                     result = val; 
  70.                     goto done;
  71.                   }
  72.                 }
  73.               } /* data out of range */ 
  74.               fldptr = _rerrs(rp, R_ERANGE); 
  75.               if (fldptr) { continue; } else { goto done; } 
  76.             } /* invalid data */ 
  77.             fldptr = _rerrs(rp, R_EINVDAT); 
  78.             if (fldptr) { continue; } else { goto done; } 
  79.           } /* missing data */ 
  80.           fldptr = _rerrs(rp, R_EMISDAT); 
  81.           if (fldptr) { continue; } else { goto done; } 
  82.         } 
  83.       }
  84.     }
  85. done:
  86.     return result;
  87. }
  88.  
  89. /****************************************************************************/
  90. /* character delimited integral number input functions                      */
  91. /****************************************************************************/
  92. int rbgeti(REC *rp, int base)
  93. {
  94.     return (int) _rbgetl(rp, base, SIGNED, INT_MIN, INT_MAX);
  95. }
  96.  
  97. unsigned int rbgetui(REC *rp, int base)
  98. {
  99.     return (uint) _rbgetl(rp, base, UNSIGNED, 0, UINT_MAX);
  100. }
  101.  
  102. long rbgetl(REC *rp, int base)
  103. {
  104.     return _rbgetl(rp, base, SIGNED, LONG_MIN, LONG_MAX);
  105. }
  106.  
  107. unsigned long rbgetul(REC *rp, int base)
  108. {
  109.     return (ulong) _rbgetl(rp, base, UNSIGNED, 0L, ULONG_MAX);
  110. }
  111.